1 POKE55,0:POKE56,128:CLR
2 POKE53281,0:POKE53280,0:PRINTCHR$(147)CHR$(14)CHR$(8);
5 POKE53272,29
6 DIM M$(9),R$(4):F=0:FF=0:S=54272:GOSUB9900
7 SP$="          "
10 FORI=1TO5:READM$(I):NEXT
11 DATA "[208]RINT [208]UZZLES         "
13 DATA "[208]RINT [211]OLUTIONS       "
15 DATA "[210]EAD [201]T               "
16 DATA "[195]REDITS               "
17 DATA "[204]OADSTAR              "
20 TP$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
22 MD$="[221][155]                                      [146][221]"
23 LN$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
24 BT$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
25 GOTO30
26 PRINT"[147]"TP$;
27 FORI=1TO23:PRINTMD$;:NEXT:PRINTBT$:POKE2023,125:POKE56295,1
28 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:RETURN
30 GOSUB26
32 PRINT"[221][156]           [193]NAGRAM [195]OUPLES            [146][221]";
34 PRINTLN$;
60 POKE214,21:PRINT
65 PRINTLN$;
70 PRINT"[221][154]   [213]SE CURSOR KEYS/[210][197][212][213][210][206] TO SELECT   [146][221]";
80 GOSUB28
100 PRINT"";
102 PRINTTAB(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
104 QQ$="[221]                        [221]"
105 FORI=1TO7:PRINT""QQ$:NEXT
106 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
107 POKE214,5:PRINT
109 FORI=1TO6:PRINTTAB(9)""M$(I):NEXT
145 SYS52496,6
146 POKE198,0
150 R=5:M=1:POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M):M1=M:R1=R
155 GETK$:IFK$=""THEN155
160 IFK$=CHR$(13)THENGOSUB9930:GOTO200
165 IFK$="[145]"THENM=M-1:R=R-1:IFM<1THENM=5:R=9
170 IFK$=""THENM=M+1:R=R+1:IFM>5THENM=1:R=5
175 IFM<>M1THENPOKE214,R1:PRINT:PRINTTAB(9)""M$(M1):GOSUB9910
180 POKE214,R:PRINT:PRINTTAB(9)"[154]"M$(M)
182 M1=M:R1=R
185 GOTO155
190 :
200 ONMGOTO1000,2000,12000,500,11000
205 GOTO150
500 SYS52496,7
525 POKE214,15:PRINT:PRINTTAB(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
527 PRINTTAB(7)"[221]  [208]UZZLE [194]Y [197]D [198]OURNIER [221]"
535 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
544 T=1
545 GETK$:IFK$<>""THEN550
546 T=T+1:IFT<100THEN545
550 SYS52499,7:GOSUB28:GOTO155
555 :
1000 GOSUB9000:IFPPTHEN155
1005 GOSUB6000
1007 OPEN4,4
1010 PRINT#4,SP$;"PUZZLE #1"
1015 PRINT#4
1020 PRINT#4,SP$;"SHE + FIT = - - - - - -":PRINT#4
1025 PRINT#4,SP$;"FRY + AIL = - - - - - -":PRINT#4
1030 PRINT#4,SP$;"LET + LIT = - - - - - -":PRINT#4
1035 PRINT#4,SP$;"AND + AGE = - - - - - -":PRINT#4
1036 PRINT#4,SP$;"CAT + TIN = - - - - - -"
1040 PRINT#4:PRINT#4
1045 PRINT#4,SP$;"PUZZLE #2"
1050 PRINT#4
1055 PRINT#4,SP$;"FUEL + SAGE = - - - - - - - -":PRINT#4
1060 PRINT#4,SP$;"LOVE + RATE = - - - - - - - -":PRINT#4
1065 PRINT#4,SP$;"RICE + PACT = - - - - - - - -":PRINT#4
1070 PRINT#4,SP$;"ALAS + NOSE = - - - - - - - -":PRINT#4
1071 PRINT#4,SP$;"SUET + RARE = - - - - - - - -"
1075 PRINT#4:PRINT#4
1076 PRINT#4,SP$;"PUZZLE #3"
1077 PRINT#4
1078 PRINT#4,SP$;"DRONE + MUTES = - - - - - - - - - -":PRINT#4
1079 PRINT#4,SP$;"INEPT + ALARM = - - - - - - - - - -":PRINT#4
1080 PRINT#4,SP$;"STILE + PENCE = - - - - - - - - - -":PRINT#4
1081 PRINT#4,SP$;"NEARS + QUIET = - - - - - - - - - -":PRINT#4
1085 PRINT#4,SP$;"SNORE + CIDER = - - - - - - - - - -"
1089 PRINT#4:PRINT#4
1100 PRINT#4,SP$;"PUZZLE #4"
1105 PRINT#4
1110 PRINT#4,SP$;"LATEST + SHINES = - - - - - - - - - - - -":PRINT#4
1115 PRINT#4,SP$;"SUITOR + SPINET = - - - - - - - - - - - -":PRINT#4
1120 PRINT#4,SP$;"POROUS + PESTER = - - - - - - - - - - - -":PRINT#4
1125 PRINT#4,SP$;"TAMPER + EDITED = - - - - - - - - - - - -":PRINT#4
1130 PRINT#4,SP$;"PRUNER + ENTREE = - - - - - - - - - - - -"
1500 PRINT#4:CLOSE4:GOTO155
1505 :
2000 GOSUB9000:IFPPTHEN155
2005 GOSUB6000
2007 OPEN4,4
2010 PRINT#4,SP$;"PUZZLE #1"
2015 PRINT#4
2020 PRINT#4,SP$;"SHE + FIT = FETISH"
2025 PRINT#4,SP$;"FRY + AIL = FAIRLY"
2030 PRINT#4,SP$;"LET + LIT = LITTLE"
2035 PRINT#4,SP$;"AND + AGE = AGENDA"
2036 PRINT#4,SP$;"CAT + TIN = INTACT"
2040 PRINT#4:PRINT#4
2045 PRINT#4,SP$;"PUZZLE #2"
2050 PRINT#4
2055 PRINT#4,SP$;"FUEL + SAGE = FUSELAGE"
2060 PRINT#4,SP$;"LOVE + RATE = ELEVATOR"
2065 PRINT#4,SP$;"RICE + PACT = PRACTICE"
2070 PRINT#4,SP$;"ALAS + NOSE = SEASONAL"
2071 PRINT#4,SP$;"SUET + RARE = TREASURE"
2075 PRINT#4:PRINT#4
2076 PRINT#4,SP$;"PUZZLE #3"
2077 PRINT#4
2078 PRINT#4,SP$;"DRONE + MUTES = TREMENDOUS"
2079 PRINT#4,SP$;"INEPT + ALARM = PARLIAMENT"
2080 PRINT#4,SP$;"STILE + PENCE = PESTILENCE"
2081 PRINT#4,SP$;"NEARS + QUIET = EQUESTRIAN"
2085 PRINT#4,SP$;"SNORE + CIDER = RECONSIDER"
2089 PRINT#4:PRINT#4
2100 PRINT#4,SP$;"PUZZLE #4"
2105 PRINT#4
2110 PRINT#4,SP$;"LATEST + SHINES = STEALTHINESS"
2115 PRINT#4,SP$;"SUITOR + SPINET = SUPERSTITION"
2120 PRINT#4,SP$;"POROUS + PESTER = PREPOSTEROUS"
2125 PRINT#4,SP$;"TAMPER + EDITED = PREMEDITATED"
2130 PRINT#4,SP$;"PRUNER + ENTREE = ENTREPRENEUR"
2500 PRINT#4:CLOSE4:GOTO155
2505 :
6000 OPEN4,4
6005 PRINT#4, "          #94 - ANAGRAM COUPLES"
6006 PRINT#4
6010 PRINT#4:CLOSE4:RETURN
9000 SYS52496,7:PP=1
9005 POKE214,15:PRINT:PRINTTAB(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
9010 PRINTTAB(7)"[221]  [208]RINTER [210]EADY? [Y/N]  [221]"
9025 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
9035 GETK$:IFK$=""THEN9035
9036 IFK$="Y"THENPP=0
9040 SYS52499,7:GOSUB28:RETURN
9045 :
9800 POKE214,21:PRINT:PRINTLN$;
9805 PRINT"[221][154]             [208]RESS [210][197][212][213][210][206]             [146][221]";
9810 GETK$:IFK$<>CHR$(13)THEN9810
9815 RETURN
9820 :
9900 FORI=0TO24:POKES+I,.:NEXT:RETURN
9910 POKES+24,15:POKES+5,9:POKES+6,0
9915 POKES+1,19:POKES,63:POKES+4,17
9920 FORT=1TO50:NEXT:POKES+4,16:RETURN
9930 POKES+24,15:POKES+5,9:POKES+6,0
9935 POKES+1,48:POKES,0:POKES+4,17
9940 FORT=1TO50:NEXT:POKES+4,16:RETURN
10000 D=PEEK(186):N$="ANAGRAM 94":OPEN1,D,15,"I0":CLOSE1
10001 OPEN1,D,15,"S0:"+N$:CLOSE1:SAVEN$,D:END
11000 POKE214,15:PRINT
11005 PRINTTAB(7)"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
11015 PRINTTAB(7)"[221]  [193]RE YOU SURE?  [Y/N]  [221]"
11025 PRINTTAB(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
11030 GETK$:IFK$=""THEN11030
11035 IFK$<>"Y"THENSYS52499,6:GOTO150
11037 PRINT"[147]":POKE53272,23
11040 GOTO40000
12000 SYS52496,7
12001 GOSUB26
12005 PRINT"[221][156]           [193]NAGRAM [195]OUPLES            [146][221]";
12010 PRINTLN$;
12015 PRINT"[155]    [211]IMPLY COMBINE THE LETTERS OF
12020 [153]"LIST THE TWO SHOWN WORDS TO FORM A
12025 PRINT"[155] LONGER WORD.  [198]OR EXAMPLE,
12030 [153]"LIST      STR$VAL(null)(null) + (null)VALATN(null) = (null)ATN(null)VAL(null)(null)VALSTR$.
12065 PRINT"[155] [217]OU WILL FORM 6, 8, 10 AND 12
12070 [153]"LIST LETTER WORDS.
12100 GOSUB9800
12105 SYS52499,7:GOSUB28:GOTO155
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END